/* HTTXPlugin Configuration $VER: HTTXPluginCFG 2.1a (25.4.98) by Gabriele Favrin (favrin@tin.it) Based on HTTXConfig.awebrx by Amitrix */ options results options failat 999 'AllowCMD' 'GetCFG TEMPPATH VAR' fname If (rc == 11) then do address command 'C:RequestChoice >NIL: HTTXPlugin "Sorry, this plugin requires at least AWeb 3.1 !" "Ok"' exit 20 end else do If Right(fname, 1) ~= "/" & Right(fname, 1) ~= ":" then do fname=fname||"/HTTXconfig.html" end else do fname=fname||"HTTXconfig.html" end end args = "" parse ARG args parse SOURCE . . . resolved . plugin_path = FindPath(resolved) save_len=77 save_indent=3 save_ansi=0 save_7bit=0 save_hrmode=1 save_noalign=0 save_filenote=0 save_href=0 save_img=0 save_script=0 save_badhtml=0 print_len=77 print_indent=3 print_ansi=0 print_7bit=0 print_hrmode=1 print_noalign=0 print_href=0 print_img=0 print_script=0 print_badhtml=0 prefs_info=0 prefs_report=1 prefs_preview=0 prefs_savedir="ram:" prefs_print_noheader=0 prefs_save_noheader=0 local_storagemode = "Use" If args == "" then do If Open(rcfg_fp, 'ENV:HTTXPlugin.config', 'R') then do cfg=ReadLN(rcfg_fp) If Left(cfg, 6) == "prefs_" then do interpret translate(strip(cfg), ';',' ') prefs_savedir=Translate(prefs_savedir, ' ', ';') End Call Close(rcfg_fp) End If Open(save_config_fp, "ENV:HTTX.prefs", 'R') then do save_config_string = Upper(ReadLN(save_config_fp)) Call Close(save_config_fp) If Pos('LEN=', save_config_string) > 0 then parse VAR save_config_string 'LEN='save_len . If Pos('INDENT=', save_config_string) > 0 then parse VAR save_config_string 'INDENT='save_indent . If Pos('HRMODE=', save_config_string) > 0 then parse VAR save_config_string 'HRMODE='save_hrmode . save_noalign = Pos('NOALIGN', save_config_string) > 0 save_ansi = Pos('ANSI', save_config_string) > 0 save_7bit = Pos('7BIT', save_config_string) > 0 save_filenote = Pos('FILENOTE', save_config_string) > 0 save_href = Pos('HREF', save_config_string) > 0 save_img = Pos('IMG', save_config_string) > 0 save_script = Pos('SCRIPT', save_config_string) > 0 save_badhtml = Pos('BADHTML', save_config_string) > 0 End If Open(print_config_fp, "ENV:HTTXprt.prefs", 'R') then do print_config_string = ReadLN(print_config_fp) Call Close(print_config_fp) If Pos('LEN=',print_config_string) > 0 then parse VAR print_config_string 'LEN='print_len . If Pos('INDENT=',print_config_string) > 0 then parse VAR print_config_string 'INDENT='print_indent . If Pos('HRMODE=',print_config_string) > 0 then parse VAR print_config_string 'HRMODE='print_hrmode . print_noalign = Pos('NOALIGN', print_config_string) > 0 print_ansi = Pos('ANSI', print_config_string) > 0 print_7bit = Pos('7BIT', print_config_string) > 0 print_href = Pos('HREF', print_config_string) > 0 print_img = Pos('IMG', print_config_string) > 0 print_script = Pos('SCRIPT', print_config_string) > 0 print_badhtml = Pos('BADHTML', print_config_string) > 0 End If Open(HTML_fp, fname, 'W') then do html_save_hrmode.0 = ""; html_save_hrmode.1 = ""; html_save_hrmode.2 = "" html_print_hrmode.0 = ""; html_print_hrmode.1 = ""; html_print_hrmode.2 = "" html='HTTXPlugin - configuration
Help   Plugin related configuration

   

HTML Conversion related configuration

Options DescriptionSavePrint' html=html||'
Default directory' html=html||'
Line length (min 15, max 255)' html=html||'
Indentation' Call html_radial('Ansi conversion of styles and links', 'save_ansi', 'print_ansi') Call html_radial('Conversion of entities to 7 bit ascii', 'save_7bit', 'print_7bit') html=html||'
HR draw mode' html_save_hrmode.save_hrmode = " checked" html_print_hrmode.print_hrmode = " checked" html=html||'OFF ' html=html||'   ASCII ' html=html||'   ANSI ' html=html||'OFF ' html=html||'   ASCII ' html=html||'   ANSI ' Call html_radial('Ignore text and HR alignment', 'save_noalign', 'print_noalign') Call html_radial_single('Save Title as FileNote', 'save_filenote') Call html_radial('Suppress Title/URL', 'prefs_save_noheader', 'prefs_print_noheader') Call html_radial('Print HTML Link References', 'save_href', 'print_href') Call html_radial('Print Image Alternate Texts', 'save_img', 'print_img') Call html_radial('Print JavaScript scripts', 'save_script', 'print_script') Call html_radial('Support badly written HTML', 'save_badhtml', 'print_badhtml') html=html||'

HTML Conversion related configuration

Plugin related configuration

Options Descriptionmode' Call html_radial_single('Print HTTP/META header', 'prefs_info') Call html_radial_single('Show preview of converted document', 'prefs_preview') Call html_radial_single("Show conversion report", 'prefs_report') html=html||'

Help   HTML Conversion related configuration

   

HTTX by Gabriele Favrin
' Call WriteCh(html_fp, html) Call Close(html_fp) 'Open "file:///'fname'" RELOAD' 'Wait "file:///'fname'"' address command 'C:Delete QUIET "'fname'"' End End else do interpret translate(strip(args),';',' ') save_config_string = 'LEN='save_len 'INDENT='save_indent print_config_string = 'LEN='print_len 'INDENT='print_indent If save_ansi then save_config_string = save_config_string 'ANSI' If save_7bit then save_config_string = save_config_string '7BIT' If save_hrmode ~= 1 then save_config_string = save_config_string 'HRMODE='save_hrmode If save_noalign then save_config_string = save_config_string 'NOALIGN' If save_filenote then save_config_string = save_config_string 'FILENOTE' If save_href then save_config_string = save_config_string 'HREF' If save_img then save_config_string = save_config_string 'IMG' If save_script then save_config_string = save_config_string 'SCRIPT' If save_badhtml then save_config_string = save_config_string 'BADHTML' If print_ansi then print_config_string = print_config_string 'ANSI' If print_7bit then print_config_string = print_config_string '7BIT' If print_hrmode ~= 1 then print_config_string = print_config_string 'HRMODE='print_hrmode If print_noalign then print_config_string = print_config_string 'NOALIGN' If print_href then print_config_string = print_config_string 'HREF' If print_img then print_config_string = print_config_string 'IMG' If print_script then print_config_string = print_config_string 'SCRIPT' If print_badhtml then print_config_string = print_config_string 'BADHTML' If local_storagemode = "Save" then Call do_save('ENVARC:') Call do_save('ENV:') address command 'UnsetEnv HTTXPlugin.savedir' End exit 0 do_save: parse ARG dest_dir If Open(save_config_fp, dest_dir||"HTTX.prefs", 'W') then do Call WriteLN(save_config_fp, translate(save_config_string,,';')) Call Close(save_config_fp) End If Open(print_config_fp, dest_dir||"HTTXprt.prefs", 'W') then do Call WriteLN(print_config_fp, translate(print_config_string,,';')) Call Close(print_config_fp) End prefs_savedir=Translate(prefs_savedir, ' ', ';') last_char=right(prefs_savedir, 1) if (last_char ~= ":") & (last_char ~= "/") then do prefs_savedir=prefs_savedir"/" end If Open(plugin_config_fp, dest_dir||"HTTXPlugin.config", 'W') then do Call WriteLN(plugin_config_fp, 'prefs_info="'prefs_info'" prefs_preview="'prefs_preview'" prefs_report="'prefs_report'" prefs_savedir="'prefs_savedir'" prefs_save_noheader="'prefs_save_noheader'" prefs_print_noheader="'prefs_print_noheader'"') Call Close(plugin_config_fp) End return html_radial: parse ARG text , variable_name , variable_name2 html=html||''text'' If value(variable_name) then do html=html||'ON   OFF ' End else do html=html||'ON   OFF ' End If value(variable_name2) then do html=html||'ON   OFF ' End else do html=html||'ON   OFF ' End return html_radial_single: parse ARG text , variable_name html=html||''text'' If value(variable_name) then do html=html||'ON   OFF ' End else do html=html||'ON   OFF ' End return FindPath: procedure parse ARG pathf dir_pos = Max(lastpos('/', pathf), lastpos(':', pathf)) If dir_pos > 0 then return(left(pathf,dir_pos)) else return('')